home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / HyperCard Related / Rinaldi Collection / XRef 1.3 (US) / XRef 1.3 (US) / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1993-03-16  |  1.2 KB  |  20 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3 (US)</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2974</cardID>
  8.     <listID>2116</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- Generic scripts
  17.  
  18. on openStack
  19. if stackIsBeingUsed()
  20. then exit openStack
  21.  
  22. if CardTop() = 0
  23. then hide menuBar
  24.  
  25. set scroll of cd fld 1 to 0
  26.  
  27. doOpenStuff
  28. end openStack
  29.  
  30. on closeStack
  31. if stackIsBeingUsed()
  32. then exit closeStack
  33.  
  34. if CardTop() = 0
  35. then show menuBar
  36.  
  37. doCloseStuff
  38. end closeStack
  39.  
  40. function CardTop What
  41. if the version contains "SuperCard"
  42. then return SCTop()
  43. else return top of cd window
  44. end CardTop
  45.  
  46. function SCTop
  47. return top of window
  48. end SCTop
  49.  
  50. function stackIsBeingUsed
  51. return not (the name of this stack is the name of me)
  52. end stackIsBeingUsed
  53.  
  54.  
  55. -- Custom scripts
  56.  
  57. on doOpenStuff
  58. end doOpenStuff
  59.  
  60. on doCloseStuff
  61. hide cd fld 2
  62. put empty into cd fld 2
  63. end doCloseStuff
  64. </script>
  65.     <background id="2618" file="background_2618.xml" name="" />
  66.     <card id="2974" file="card_2974.xml" marked="false" name="" owner="2618" />
  67. </stack>
  68.